home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / net / cnetjam10.lha / cnet / pfiles / fido / FidoBusyMessage < prev    next >
Text File  |  1993-11-21  |  1KB  |  20 lines
  1. /* Check INBOUND: for ".pkt" files, then display the busy message */
  2.  
  3. options results ; tr=transmit ; se=sendstring
  4. a=addlib('rexxsupport.library',0,-30,0) ; a=showdir('inbound:')
  5.  
  6. if index(upper(a),'.PKT')>0 then do ; tr 'f1n4'
  7.     tr '>9z1                                                             z0'
  8.     tr '>9z1  cf--> ceA T T E N T I O N     C U R R E N T     U S E R cf<--    z0'
  9.     tr '>9z1cb                                                             z0'
  10.     tr '>9z1  There are incoming FIDO-Net Messages being processed in    z0'
  11.     tr '>9z1  the background right now, so you will be experiencing a    z0'
  12.     tr '>9z1  SLOW-DOWN in the performance of Frontiers BBS, until all   z0'
  13.     tr '>9z1  new messages have been processed. Thank You.               z0'
  14.     tr '>9z1                                                 caDotoran     z0'
  15.     tr '>9z1                                                             z0'
  16.     se '                              c6<c7Press cdENTER c7Nowc6>i1'
  17.     end ; else tr 'n1c6No ceFIDO-Net c9Activity c6Happening cbPresentlyc6.'
  18.  
  19. /*                        < END OF FILE MARKER >                         */
  20.